const dice = [&
 ["L","N","H","N","Z","R"],&
 ["M","U","O","C","T","I"],&
 ["T","W","O","O","T","A"],&
 ["X","I","D","R","E","L"],&
 ["H","N","U","I","M","Q"],&
 ["B","B","A","O","O","J"],&
 ["W","R","E","T","V","H"],&
 ["T","O","E","S","I","S"],&
 ["E","U","S","E","N","I"],&
 ["W","E","G","N","H","E"],&
 ["K","S","F","F","A","P"],&
 ["O","A","C","S","P","H"],&
 ["T","S","T","I","Y","D"],&
 ["Y","R","D","V","L","E"],&
 ["A","G","A","E","E","N"],&
 ["T","Y","E","L","R","T"]]
'https://en.wikipedia.org/wiki/Fisher%E2%80%93Yates_shuffle
randomize
dim game(15)
dim grid(15)
for i = 0 to 15
  game(i) = i
next i

w = window():
w.setFont(75, "pt", true, false)

shuffle = rnd*100%10
for count = 0 to shuffle
  for i = 15 to 1 step - 1
    r = rnd * 1000 % i
    j = game(r)
    game(r) = game(i)
    game(i) = j
  next i
  for i = 0 to 15
    r = rnd * 1000 % 6
    grid(i) = dice(game(i))(r)
  next i
  at 0,0
  print
  for i = 0 to 15
    print " "; grid(i); " ";
    if (i == 3 or i == 7 or i = 11) then
      print
    fi
  next i
  delay 100
next count

w.setFont(20, "pt", true, false)
color 1,2
for i = 180 to 1 step - 1
  at 0,0
  ? time; " "; i
  pause 1
next i
pause